home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / main.dxr / 00107.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  501 b   |  16 lines
  1. on loadname
  2.   global ladyname
  3.   set ladyname to "Megumi Aihara,Tsubasa Mizuki,Miki Nishio,Saki Aikawa,Reiko Shihomi,Mami Shiraki, Kanari Makino,Megumi Ishihara,Aya Mitsui,Eri Kashiwagi,Amii Morishita,Kaori Asao,Yumi Shindo,Yukari Takahashi,Shima Takahashi"
  4. end
  5.  
  6. on showname
  7.   global ladyname
  8.   repeat with n = 1 to 15
  9.     set y to item n of ladyname
  10.     put y into field "ladyName"
  11.     wait(random(5) * 0.20000000000000001)
  12.   end repeat
  13.   put "Initializing ... " into field "ladyName"
  14.   wait(1.5)
  15. end
  16.